home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 October / 1987-10.d64 / graphics buffer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  52 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 print"[147][144]   copyright 1987 compute! pub., inc."
  3. 30 printtab(11)"all rights reserved"
  4. 40 print"please wait, poking graphic buffer ml."
  5. 50 fori=51000to51567:readk:pokei,k:x=x+k:next
  6. 60 ifx<>71483thenprint"error in data statement.":stop
  7. 70 sys51000:print"the graphic buffer is now active."
  8. 80 print"hit stop/restore to deactivate."
  9. 90 print"sys 51000 to reactivate. "
  10. 100 data 173,38,3,141,64,201,169,90,141,38,3,173,39,3,141,65
  11. 110 data 201,169,199,141,39,3,169,0,141,68,201,141,66,201,141,67
  12. 120 data 201,96,234,234,234,8,141,62,201,142,60,201,140,61,201,165
  13. 130 data 154,205,83,201,240,13,173,62,201,174,60,201,172,61,201,40
  14. 140 data 108,64,201,173,68,201,208,13,173,62,201,201,8,208,231,32
  15. 150 data 230,199,76,162,199,173,62,201,48,28,32,102,200,173,62,201
  16. 160 data 201,15,208,210,32,47,200,76,162,199,174,60,201,172,61,201
  17. 170 data 173,62,201,40,24,96,8,120,165,1,72,169,48,133,1,173
  18. 180 data 62,201,141,0,208,104,133,1,40,24,169,1,109,187,199,141
  19. 190 data 187,199,169,0,109,188,199,141,188,199,24,169,1,109,66,201
  20. 200 data 141,66,201,169,0,109,67,201,141,67,201,76,162,199,32,174
  21. 210 data 255,169,1,141,68,201,173,83,201,32,177,255,173,84,201,9
  22. 220 data 96,32,147,255,173,85,201,162,86,160,201,32,21,201,32,174
  23. 230 data 255,165,186,32,177,255,166,185,224,255,208,2,169,0,138,9
  24. 240 data 96,32,147,255,169,0,141,66,201,141,67,201,169,0,141,187
  25. 250 data 199,169,208,141,188,199,96,32,174,255,169,0,141,68,201,173
  26. 260 data 83,201,32,177,255,173,84,201,9,96,32,147,255,173,94,201
  27. 270 data 162,95,160,201,32,21,201,32,174,255,165,186,32,177,255,166
  28. 280 data 185,224,255,208,2,162,0,138,9,96,32,147,255,96,173,66
  29. 290 data 201,13,67,201,208,1,96,32,174,255,173,83,201,32,177,255
  30. 300 data 173,84,201,9,96,32,147,255,173,103,201,162,104,160,201,32
  31. 310 data 21,201,173,66,201,32,168,255,173,67,201,32,168,255,8,165
  32. 320 data 1,72,169,0,141,170,200,169,208,141,171,200,120,169,48,133
  33. 330 data 1,173,0,208,162,54,134,1,88,41,127,162,0,142,59,201
  34. 340 data 74,46,59,201,232,224,8,208,247,173,59,201,32,168,255,24
  35. 350 data 169,1,109,170,200,141,170,200,169,0,109,171,200,141,171,200
  36. 360 data 174,170,200,236,187,199,208,196,174,171,200,236,188,199,208,188
  37. 370 data 32,174,255,165,186,32,177,255,166,185,224,255,208,2,162,0
  38. 380 data 138,9,96,32,147,255,169,0,141,66,201,141,67,201,169,0
  39. 390 data 141,187,199,169,208,141,188,199,104,133,1,40,96,201,0,240
  40. 400 data 33,141,63,201,165,253,72,165,254,72,132,254,134,253,174,63
  41. 410 data 201,160,0,177,253,32,168,255,200,202,208,247,104,133,254,104
  42. 420 data 133,253,96,0,0,0,0,0,0,0,0,0,0,80,82,73
  43. 430 data 78,84,69,82,32,80,65,82,65,77,83
  44. 440 data 4: rem printer device no.
  45. 450 data 5: rem secondary address - transparent, no line-feed
  46. 460 data 3: rem number of characters in vertical spacing 7/72 inch command
  47. 470 data 27,65,7,32,32,32,32,32:rem vertical spacing 7/72 command + spaces
  48. 480 data 3: rem num of chars in set vertical spacing to normal command
  49. 490 data 27,50,20,32,32,32,32,32: rem set vert spacing to normal +
  50. 500 data 2: rem number of chars in graphics-on command
  51. 510 data 27,75,32,32,32,32,32,32: rem graphics-on command + spaces
  52.